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<NLS>SYNTAX,NLS;10, 29-0CT-73 13z03 CFD 'j 

FILE nlslanguage % CML.SAV TO <rel-nls>SYNTAX.REL % 

% COMMON RULES % 

% ENTITY DEFINITIONS % 

eaitentxty = textent / structure; 
% TEXT ENTITY DEFINITIONS % 

textent = textl / "TEXT"iLli; 

textl = "CHARACTER" iLli / "¥ORP"iLli / "VISIBLE" i Lli / 
"INVISIBLE" iLli / "NUMBER" iLli / "LINK"iLliJ 
% STRUCTURE ENTITY DEFINITIONS % 

structure « "STATEMENT" iLli / notstatement; 
notstatement = "GROUP" iLli / "BRANCH" iLli / "PLEX"iLli ; 
% SUBSYSTEM NAMES % 

nlssubs = "EDITOR" iLli / "CALCULATOR" iLli / "FORMS" iLli 
/ "HELP" iLli / "IDENTIFICATION" iLli / "JOURNAL" i Lli 
/ "MEASUREMENT" iLli / "PROGRAM" i Lli / "QUERY" iLli 
/ "USEROPTIONS"iLli ; 
% ANSWER % 

answer » ("YES"iLl li/"NO"iLl Oi/ "<CA>"iLl li); 
% SWITCH % 

switch = ("ON"iLl li/"OFF"iOi); 
% RECOGNITION MODES % 

rmode s ( "EXPERT" iLli / "ANTICIPATORY" iLli / "DEMAND" iLli / 
"FIXED" iLli )J 
% CASE SHIFT MODES % 
cshmode = 

( "UPPER" iLli 
/ "LOWER" iLli 

/ "lHITlAL"iLli <"upper"> ); 
% DIRECTORY OPTIONS % 
diropt s 

( "ACCOUNT" iLli/ "ARCHIVE" iLli/ "CHRONOLOGICAL" iLli / 
"CRAM"/ "DATES"iLli/ "DELETE"/ "EVERYTHING" i Lli / 
"LENGTH"iLli/ "PROTECT" i Lli / "REVERSE" i Lli / "SI2E"iLli/ 
"TIME"iLli/ "VERBOSE"iLli); 
% DECLARATIONS % 
DECLARE VARIABLE 

%Journai subsystem% 
autnfield, 
clerfield, 
commfield, 
distfield, 
formfieldi, 
keywfieldi, 
linkfieia, 
numbfield, 
numPtype, 
obsofield, 
suPcfield, 
submclest, 
submtype, 
txtixieidj 
updafield, 
aheadf ilename, 
dent, 
dest. 
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ent, 

filename, 

frorawhom, 

level, 

literal, 

param, 

parani2 J 

param3* 

port, 

retfilenane, 
sent, 
Sim, 
source, 
subsys, 
tip, 
vs; 
DECLARE PARSEFUNCTION 

sp, % reads next char, TRUE if space % 

readca, % reaas next cnar if ca % 
looKca, % TRUE if next char is CA % 
looknum, % TRUE if next char is a number % 
notca; % reads next char, TRUE iff not CA char % 
SUBSYSTEM nlseditor 
% NLS EDITOR COMMANDS % 
COMMAND %verify% 
zverify s 

"VERIFY" iLli "FILEMLli CONFIRM xverif y ( ) ; 
COMMAND %upaate% 
zupdate = 

"UPDATE" iLli "FILE" iLli 
filename <- NULL 
ent ♦- #"NEW" 
/"ent *• 

( "OLD" iLli <"version"> 

/ "COMPACT" iLli 

/ "RENAME" iLli <"filename"> 

filename ♦• LSEL( #"FILE" ) ); 
CONFIRM 

xupdate( ent, filename ) ; 
COMMAND %un(aelete% 
zundelete = 
"UNDELETE" 
ent *- 

( "FILE" iLli 

/ "ARCHIVE" iLli <"file"> 
/ "MODIFICATIONS" iLli <"t0 file"> ) 
filename «• LSELi #"FILE" ) 
CONFIRM 

xundelete( ent, filename ) ; 
COMMAND %trim% 
ztrim = 

"TRIM" "DIRECTORY" iLli 

<"no. versions to keep"> param <- LSEL(#"NUHBER") 
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CONFIRM <»really?"> 
CONFIRM 

xtrim( param ) ; 
command' %transpose% 
ztranspose a 

"TRANSPOSE" iLli 

sent <" editentity 

<"at"> source <- DSEli sent ) 

<"and"> dent *- sent 

dest ^ DSEL( dent ) 

vs ♦• NULL filter <- FALSE 

[ <"Filtered:"> filter <- TRUE vs ♦• VIEWSPECS ; 
CONFIRM 

xtransposei sent, source, dent, dest, filter, vs ) ; 
COMMAND ^substituted 
zsubstitute s 

"SUBSTITUTE" iLli 

filter ♦- FALSE vs ♦• NULL 

sent *• textent 

<"in"> dent <• structure 

<"at"> dest <- DSEL(dent) 

%** collect param <- sutopairst sent ) ^^% 

param *■ NULL 
copy2 
CONFIRM 

xsubstitutei sent, dent, dest, param, filter, vs ); 
COMMAND %stop% 

ZStOp 5 

"STOP" "RECORD" iLll <"0f Session"> CONFIRM 
xstopO ; 
COMMAND %split% 
zspiit w 

"SPLIT" iNOTTl "WINDOW" iLll 

param <- ( "HORIZONTALLY" iLli / "VERTICALLY" iLli ) 
CONFIRM 

xspliti parara ) ; 
COMMAND %SOrt% 
zsort = 
"SORT" 

dent «" notstatement 
dest «- DSEL( dent ) 
CONFIRM 

xsimulatei dent, dest ) ; 
COMMAND %simulate% 
zsimulate » 

"SIMULATE" "TERMINAL" iLli <"type"> 
ent ♦• 





( 


"DISPLAY" iLli 




/ 


"TI' 


•iLli <"' 


rerininal"> 




/ 


"EXECUPOHT" 


iLli 




/ 


"33-TTY"iLl 


33 i 




/ 


"3S-TTY"iLl 


35 i 




/ 


"37-TTY"iLl 


37 i ) 




CONFIRM 








xsimulateC ent ) 


■ 


COMMAND 


%show^ 


» 
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zshow = 
"SHOW" 
ent *• 

( "FILE" i LI i 
paraw ♦• 

( "STATUS" iLll 

/ "LINK"iLli <"defauit directory" 
/ "MARKER" <"list"> 
/ "MODIFICATIONS" iLli <"status"> 
/ "RETURN"! Hi <"ring"> 
/ "SIZE" I LI i ) 
/ "ARCHIVE" JLll <"directory"> 

param <■ (readcaO / LSEL (#"NamE" ) ) 
%CAN WE DO THIS???% 
/ "DIRECTORY" iLli 

param ♦• (readcaO / LSEL(#"NAM£" ) 
%CAN WE DO THIS???% 
/ "DISK" <"space status"> 
/ "NAME" iLli < "delimiters for 
param <- DSELi #"STATEMENT" 
/ "VIEWSPECS"iLli <"status"> 
param <- NULL 

/"param <- "VERBOSE" iLlii ) 
CONFIRM 

xshow( ent, param ) ; 
COMMAND %set% 
zset = 
"SET" 

dest <r NULL 
ent ♦• 



$[ 



statement 
) 



diropty ) 
at"> 



param <- NULL param2 ♦• NULL param3 <- NULL 



( "CA3E"iLli 

( param ♦• 

<"at"> 

param2 

/ param <- 

param2 



editentity 

dest <- DSEL( param ) 

*• NULL /"parama <- cshraode; 

"MODS" iLli 



param <- DSELi 
/ "TERSE" iLli 



#" NUMBER' 



♦• cshmode ) 
"CHARACTER"iNOTTi 

<"size for window to"> 
"FEEDBACK" <"mode"> 

param <- ( "VERBOSE" iLli 
"FILTER" iLli 

param <- 

( "TO"iLli 

<"pattern"> param2 *• LSEL( #"CHARA0TER" ) 
/ switcti ) 
"LINK"iLli 

<"default for file to directory"> 

param2 <- LSEL(#"NAME" ) 
"NAME "iLli 

<"delimiters in"> param ♦- structure 

<"at"> dest ♦•DSELi param ) 

CLEAR 

<"left delimiter"> param2 *• LSEL(#"C 

<"right delimiter"> param3 ♦■ LSEL(#" 
"PROMPT" iLli 

param <- ("OFF"iLli / "PARTIAL" iLli / 



HARACTEE") 
CHARACTER") 

"FULL" iLli) 
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/ "RECOGNITION" iLl J <"mocie"> 

paraim ♦• rmocle 
/ "TEMPORARY" iLll <"moaif ications for file"> 
/ "TTYMNOTTi <"winaow to winciow"> 

param <- LSEL(#"WXNDOW" ) 
/ "VISWSPECS"iLli 

param <• VIEWSPECS ) 
CONFIRM 

xset( ent, param, param2, param3* diest ) ; 
COMMAND %retrieve% 
zretrieve = 

"RETRIEVE" "FILE"lLli <"from arcnive"> 
filename <- LSEL(#"FILE") 
CONFIRM 

xretrleve( filename ); 
COMMAND %reset% 
zreset s 
"RESET" 

aest ♦• NULL dent *- NULL 
ent <- 

( "ARCHIVE" iLll <"reQuest for file"> 

dest <- ISEL(#"FIL£") 
/ "CASE"iLli <"mode"> 

/ "CHARACTER" iLl NOTTi <"size for window"> 
/ "FEEDBACK" <"moae"> 
/ "FILTER" iLli 

/ "LINK"iLli <"default for file"> 
/ "NAM£"iLli <"delimiters in"> 
dent «• structure 
<"at"> dest ^ DSEL{dent) 
/ "PROMPT" Uli 

/ "RECOGNITION" iLli <"mode"> 
/ "TEMPORARY" iLli <"modif ications for file"> 
/ "TTY"iNOTTi <"window"> 
/ "VIEWSPECS" iLli ) 
CONFIRM 

xreset( ent, dent, dest ); 
COMMAND %replace% 
zreplace = 

"REPLACE" iLli 

dent <- editentity 
<"at"> dest <• DSEL(dent) 
sent > dent 

<"by"> source «• LSEL{sent) 
CONFIRM 

xreplace( dent, dest, sent, source ); 
COMMAND %renumber% 
zrenumber s 

"RENUMBER" "SIDS"iLli 
<"in file"> CONFIRM 
xrenumberC ); 
COMMAND %release% 
zrelease s 

"RELEASE" i NOTTi 
ent <- 

( "FROZEN" iLli <"statement at"> 
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dest 4- DSEL{#"STATEMENT") 
/ "AlL"iLli <"frozen statements»> dest «- NULL ) 
CONFIRM 

xrelease( ent, dest ); 
COMMAND %recordi% 
zrecord = 

"RECORD" "SESSION" iLll <"on file"> filename <- LSEL (#"FILE" ) 
CONFIRM 

xrecord( filename ); 
COMMAND %prot/ect% 
zprotect = 

"PROTECT"JLli "FILE"iLli filename <- LSEL(#"FILE" ) 
<"from"> 

frorawhom <- ("SELF"iLli /"GROUP"iLli / "OTHERS" i Lli ) 
param ♦• #"ALL" 
/ 

<"protection"> param ♦• 
( "READ" ill li 
/ "WRITE" iLl 2i 
/ "EXECUTE" ILl l|.i 
/ "APPEND"! LI 8i 
/ "LIST" ILl 16i 
/ "ALL"iLl 31i <"access"> ) 
i 
CONFIRM 

xprotect( filename, fromwhom, param )$ 
COMMAND %print% 
zprint B 

"PRINT" iLl NOTDi 

( readcaO ent <- #"REST" dest ♦- NULL vs <• NULL 
/ ent ^ structure 

<"at"> dest *- DSEL( ent ) 
vs *- VIEWSPECS ) 
xprint( ent, dest, vs ); 
COMMAND %playbacK% 
zplayback = 

"PLAYBACK" "SESSION" iLli 

<"from file"> filename ♦• LSEL(#"FILS") 
CONFIRM 

xplaybacki filename ); 
COMMAND %output% 
zoutput = 

"OUTPUT" iLli 
( ( ent «- 

("QUICKPRINT"iLli 

/ "JOURNAL" iLli <"Quickprint"> 

/ "PRINTER" iLli 

/ "COM"iLli ) 

filename «■ NULL 

param «• TRUE % use default number of copies % 

% construct default file name % 

%^-»^ filename *• defilname( ent ) ^^% 
[ 

"FILE"iLli filename ♦• LSSL(#»FILE" ) / 
"COPIES" iLli param <- LSELi#"NUMBER") 

; 
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CONFIRM 

xoutK ent, filename, param )) 
/ ( ent <- 

("SEQUENTIAL'MLll / 
"ASSEMBLER" iLlI ) 

<"fiie"> filename <- LSEL(#"FILE" ) 
param *- FALSE 

/""FORCE" iLli <"upper case"> param <- TRUE7 
CONFIRM 

xoutK ent, filename, param )) 
/ ( 

( ent <- "TERMINAL"! LI i tip ♦• NULL port ♦• NULL 
/ ent ^ "REMOTE"! LI i 

<"printer — TIP"> tip <- LSEL(#"VISIBLE") 
<"Port #"> port ♦• LSEL(#"NUMBER") ) 
CLEAR 

<"SencS Form Feeds?"> 
ff <- 

( "YES" J LI li Sim <- FALSE 
/ "NO"iLl Oi <" Simulate? "> sim ♦• answer) 
CLEAR 

<"Wait at page breaK?"> pb «- answer 
CLEAR 
<"Go?"> 

( reaacaO 
/ "YES"lLli 
/ "NO"!Lli 

<"Type CR When ready, CD to at>ort"> 

"iLin 

xout2{ ent, tip, port, ff, sim, pb)) 
),; 

COMMAND %move% 
zmove = 

"MOVE"iLli 

filtre ♦• FALSE 
vs <- NULL 
level «- NULL 
{ sent ^ textl 

copyl 

(Sent ♦• sent 

<Sest <- DSEL(aent) 
/ sent ♦- "TSXT"iLll 

copyl 

aent ♦■ #"CHARACTER" 

dest ♦• DSEL{dent) 
/ sent <- structure 

copyl 

dent 4- #"STATEMEHT" 

dest *- DSEL(dent) 

level ^ LEVADJ 

copy2 
/ dent ♦• "FILE"iLli 

sent ♦• dent 

<"from old filename"> source <- LSEL{sent) 

<"to new filename"> dest <• LSEL(dent) 
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/ dent <r "BOUNDARY" iNOTTi 
sent; ♦" dent* 

<"from"> source <- LSEL(#"WINDOW" ) 
<"to"> dest <- LSEL(#"WINDOW") 

) 

CONFIRM 

xmoveisent, source, dent, dest, level, filtre, vs); 
COMMAND %raerge% 
zmerge s 
"MERGE" 

sent ♦• notstatement 
<"at"> source <- SSEL(sent) 
dent ♦• sent 

<"into"> dest ♦• DSEL(dent) 
CONFIRM 

xmerge( sent, source, dent, dest); 
COMMAND %mark% 
zmark « 

"MARK" "CHARACTER" ILli <"at"> 
dest ♦- DSEL( #"CHARACTER" ) 
<"with marker naraed"> source ^ LSEL (#"NAME" ) 
CONFIRM 

xmark( dest, source); 
COMMAND %10gOUt% 
zlogout = 
"LOGOUT" 

CONFIRM xlogoutO; 
COMMAND %load% 
zload = 

"LOAD" i LI i 

ent 4- ("FILE"iLli / "8l|SY"iLli <"file">) 
filename <- LSEL(#"FILE" ) CONFIRM 
xloadient, filename); 
%k (unused)% 
COMMAND %tjump% 
ztjump = 

"JUMP"iNOTD Lli <"to"> 

dest <" DSEL(#"CHARACTER") 
xdump{#"TITEM", dest, NULL); 
COMMAND %djumpf« 
zdjump » 

"JUMP"iNOTT Lli <"to"> 
( 

lookca{) % look for a bug select % 
ent <" #"ITEM" 

dest <- DSEK ^"STATEMENT" ) 
dest *• xjdae( dest ) %LSEL( #"ADDR" )% vs ♦• 
VISWSPECS 
/ ent <" 
( 

"ITEM" i Lli 



•SUCCESSOR" iLli 
'PREDECESSOR"iLli 
•UP"iLli 
•DOWN" i Lli 
'HEAD" i Lli 
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/ "TAIL"! LI I 

/ "END'MLli <"of 0ranch'"> 

/ "BACK" i LI i 

/ "ORIGIW'iLli 

/ "NEXT" 
) 

dest ♦• DSEL(#"STATEMENT") vs ♦- VIEWSPECS 
/ 
( 
ent 4- "LINKMLll (dest <- LSEL (#"LINK" ) 

vs <- VIEWSPECS) 
/ ent <- "RETURN" ILli dest ♦- NULL vs <■ NULL 

%^^ ca() 

retstat <- NULL 

retstat 4- retext (retstat) *^% 

%displays textent from 'return' statements 
%returns next 'return' statement% 
%** notcaO ; *^% 
/ ent <• "AHEAD" iLli dest ♦• NULL vs ♦• NULL 
%*^ ca() 

aheadstat *■ NULL 
^[ 

aheadstat <- aheadtext (aheadstat) 
notcaO ; ^^% 

^displays textent from 'ahead' statement% 
^returns next ♦ahead' statements 
/ ent ♦• "FILE" iLli dest ♦• NULL VS <- NULL 
( 

spO dest *• LSEL(#"FILE") 
/ lookcaO dest ♦• DSEL(#"FILE") vs <- VIEWSPECS 
/ "AHEAD" iLli ent <- #"FILEAHEAD" 
aheadfilename *• HULL %^* 
$[ 

aheadfilename «- aheadfile (aheadfilename) 
notcaO 7 *^% 

%displays name of 'ahead' file% 
%returns next 'ahead' file% 
/ "RETURN" iLli ent <- #"FILERETURN" 
retfilename ♦• NULL %^^ 

retfilename <- retfile (retfilename) 
notcaO; ^*% 

%displays name of 'return' file% 
%returns next 'return' file% 
) 
/ ent 4- "NAME" iLli 

("FIRST"iLli (ent <• #"FIRSTNAME") / "NEXT"iLli 
(ent ^ #"NEXTNAME") / "ONLY" iLli) 
dest ♦• LSEL(#"NAME") vs <• VIEWSPECS 
/ "CONTENT" iLli 

("FIRST"iLli ent *r #"FIRSTCONTENT" / "NEXT"iLli 
ent ♦- #"NEXTCONTENT") 

(dest <- LSEL(#"TEXT") %^* / option ( ) **% %Accept 
old content^) vs ♦- VIEWSPECS 

%textent may contain elipses notation (••.)% 
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^Default IS "next"% 
/ "WORD" I LI i 

( "FIRST" iLli ent <- #"FIRSTWORD" / "NEXT"ILXi ent *- 

#"NEXTWORD") 

(dest <- LSEL(#"WOHD") %^* / option *^% ^Accept 

old content%) vs <• VIEWSPECS 

%textent may contain elipses notation {...)% 
%Default is "next"% 
) 
) 

CONFIRM 

xjumpient, dest, vs); 
COMMAND %insert% 
zinsert = 

"INSERT" iLli 
level ♦• NULL 
( ent <r textl 
<"to follow "> 
dest <- DSEL(ent) 
param <- LSEL(ent) 
/ ent ♦• "TEXT" iLli 
<"to fOllO¥"> 
dest ♦- DSEL(#"CHARACTER") 
param <- LSEL(ent) 
/ ent ♦• structure 
<"to follow"> 
dest <- DSEL(#"STATEMENT") 
level *• LEVADJ 
param ♦• LSEL(ent) 
/ ent ♦- "JOURNAL" iLli <"submission form"> 
<"to follow"> 
dest ♦• DSEL(#"STATEMENT") 
level <- LEVADJ 
param ♦• NULL 
) 

CONFIRM 

xinsert(ent, dest, level, param); 
% h (unused) % 
COMMAND %freezefo 
zfreeze = 

"FREEZE" ill NOTTi "STATEMENT" i Lli <"at"> 
dest <- DSEL(#"STATEMENT") 
vs «- VIEWSPECS CONFIRM 
xfreeze(dest, vs); 
COMMAND %expunge% 
zexpunge - 
"EXPUNGE" 
ent <- 

( "DIRECTORY" iLli 
/ "ARCHIVE" iLli <"dxrectory"> ) 
CONFIRM 

xexpunge(ent) ; 
COMMAND %edit% 

f7 fi^ r) *! i* *" 

"EDIT"iNOTDi "STATEMENT" iLli <"at"> 
dest 4- DSEL(#"STAT£MENT") 
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xedit (dest) 5 

COMMAND %disconnect% 
zdisconnect » 

"DISCONNECT" "TERMINAL" ill I CONFIRM 
xdisconnect ( ) ; 
COMMAND %delete% 
zdelete = 

"DELETE" iLXi 

filtre *- FALSE dest <- NULL vs «- NULL 

( 

( ent ♦• textent 

<"at"> dest <- DSEL(ent) 
/ ent <- structure 

<"at"> dest <- DSEL(ent) 

/"filtre 4- TRUE <"Filtered! "> vs <- VIEWSPilCs; ) 
/ ( ent 4- ("FILE"iLli / "ARCHIVE" <"file">) 

dest *- LSEL(#"FILE") ) 
/ ( ent <- "MARKER" 

<"named"> dest ♦■ LSEL(ent) ) 
/ ( ent *• "ALL"iLli <"marKers">) 
/ ( ( ent <- "MODIFICATIONS"iLli) 

<"to file"> CONFIRM <"really?"> ) 

) 

CONFIRM 

xdeieteient, dest, filtre, vs); 
COMMAND %create% 
zcreate » 

"CREATE" "FILE"iLll 

filename <- LSEL(#"FILE" ) CONFIRM 
xcreate (filename) 1 
COMMAND %copy% 
zcopy s 

"COPY" i LI i 
vs <- NULL 
level <- NULL 
filtre ♦- NULL 
param ♦• NULL 
( sent ^^ textl 

copy! 

dent <r sent 

dest ♦• DSEL(dent) 
/ sent *- "TEXT"iLll 

copyl 

dent ♦• #"CHARACTER" 

dest «- DSEL(dent) 
/ sent ♦• structure 

copyl 

dent «- #"STATEMENT" 

dest ♦• DSEL(dent) 

level 4- LEVADJ 

copy2 
/ sent 4- "FILE"iLli 

dent <r sent 

<"from"> source «- LSEL(sent) 

<"to"> dest *• LSEL(dent) 
/ sent ♦• "DIRECTORY" JLli 
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copy 3 
/ sent <- "ARCHIVE" iLli <Mirectory"> 

copy3 
/ sent ^ "SEQUENTIAL" 

<"file from"> source <- LSKL(#"FILE") 
<" to follow"> dest ♦- DSEL(#"STATEMENT") 
level ♦■ LEVADJ 
dent <- NULL 

/"dent <- ("HEURISTIC"lLli/ "JUSTIFIED" i Lll / 
"ASSEMBLER" ILli) 7 
) 

CONFIRM 

xcopy(sent, source, dent, dest, level, filtre, vs) ; 
copyl = 

<"from"> source <- SSEL(sent) 
<"to follow">; 
copy2 » 

^filtre 4- TRUE <"Filtered; "> vs ♦- VIEWSPECsy; 

copy3 = 

<"from"> source ^ LSiL( #" VISIBLE" ) 
<"to follow"> dest ^ DSEL(#"STATEMENT") 
level ♦■ LEVADJ 
dent ♦• $/"diropt7j 
COMMAND %connect% 
zconnect = 
"CONNECT" 
<"to"> 
(ent <" ("DISPLAY" / "TTY"iLli) 

<"Mumber"> dest <- L3EL(#"NUHBER" ) 

param <- ( "INPUT" ILli <"and Output"> / "OUTPUT" iLli 
<"Only">) / 
ent *- "DIRECTORY'MLli dest ♦• LSEL {#"NAME" ) 
param *- NULL 

/"<"Password"> param <- LSEL(#"VISIBLE"); 
) 
CONFIRM 

xconnect (ent, dest, param); 
COMMAND %clear% 
zclear s 

"CLEAR" iNOTTi "WINDOW" iLli <"at"> 
dest *- DSEL(#" WINDOW") CONFIRM 
xclear(dest); 
COMMAND %t)reaK% 
zPreak a 

"BREAK "iLli 

ent ♦- "STATEMENT" iLli 

<"at"> dest *- DSEL(#"CHARACTER") 
level ^ LEVADJ 
CONFIRM 

xbreaic(ent, dest, level); %sliould also pass literal% 
COMMAND %archive% 
zarchive - 

"ARCHIVE" "FILE" iLli 

filename > LSEL(#"FILE") param i- ST'DELETE" iLli / "DO 
NOT DELETE" / "DEFERRED" / "IMMEDIATE" iLli / "NOT 
ALLOWED" iLli; CONFIRM 
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xarchive (file, param) ; 
COMMAND %appena% 
zappend = 

"APPEND" iLlI 

( sent ♦• textl % text entities except "TEXT" % 
zappl 

dent ♦■ sent 
/ sent *• "TEXT"iLll 

zappl ^ 

dent 4- #"CHARACTER" 
/ sent ♦■ structure 
zappl 

dent ^ #"STATEMENT" 
) 

dest <- DSEL(dent) 
literal <- LSEL(#"TEXT" ) 
CONFIRM 

xappend(sent, source, dent, dest, literal); 
zappl = 
<"at"> 

source ^ SSEL(sent) 
<"to">; 
COMMAND %accept% 
zaccept = 

"ACCEPT" iNOTTi "CONNECT" i LI i 

<"from display #"> param <- LSEL(#"NUMB£R") 
CONFIRM xaccept( param ); 
COMMAND %comment% 
zcomment = 
";"iLli 

%#^^ xcommentO •»*% i 
COMMAND %period% 
zperiod = 

"."ill NOTDi 
xperiodO ; 
COMMAND %tab% 
ztab s 

" "I LI NOTDi 
xtab ( ) I 
COMMAND %slasli% 
zslash s 

"/"iLl NOTDi 
xslashO ; 
COMMAND %bslash% 
zbslash 5 

"\"iLl NOTDi 
xPslashO ; 
COMMAND %uparrow% 
zuparrow = 

"t"iLl NOTDi 
xuparrowO ; 
COMMAND %linef eed% 
zlinefeed ? 

"<LF>"iLl NOTDi 
xlinefeedO ; 
END, 
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% NIS SUPERVISOR COMMANDS % 
SUBSYSTEM suDsupervisor 

COMMAND % display subsystem stack % 
zdspss s 

"<"iLli xsublistO; 
COMMAND % display current subsystem stack name % 
zdspcs s 

">"iLli xsubcurrentO ; 
COMMAND 
zquit = 

"QUIT'MLll 

( readcaO subsys ^ NULL 

/ subsys ♦• (nlssubs / "NLS'MLli) CONFIRM ) 
xquit(subsys) ; 
COMMAND 

ZgOtO = 

"GOTOMLll <"subsystem"> 

subsys 4- (nlssubs / "TENEX"iLli ) 
CONFIRM xgoto(subsys, FALSE); 
COMMAND 

zexecute = 

"EXECUTE" iLll <"command in"> 
subsys ^ nlssubs 
xgoto^subsys, TRUE); 
END. 
% USER PROGRAMMING SUBSYSTEM COMMANDS % 
SUBSYSTEM subproirams 
uprogtypes « 

("CONTENT"iLll <"anaiyzer prograra">/ "SORT"iLli <"key 
extractor program">/ "SEGEHERATOR" iLli <"program"> ); 
COMMAND 
zpset = 
"SET" 
ent *• 

{ "BUFFER" iLli <"size to"> 
source <- LSEL(#"NUMBEB") 
/ "NDDT"iLli <"control-h"> 
source <- NULL ) 
CONFIRM xpset(ent, source ); 
COMMAND 

zpshow s 

"SHOW" iLli "STATUS" iLli <"of programs buffer"> 
CONFIRM xpshow( ) ; 
COMMAND 

zpreset « 

"RESET" iLli 
ent ♦- 

( "BUFFER"iLli <"size"> 
/ "NDDT"iLli <"control'h"> ) 
CONFIRM xpreseti ent ); 
COMMAND 
zprun = 

"RUN" iLli "PROGRAM" iLli 
source *- LSEL(#"NAME") 
CONFIRM xpruni source ); 
COMMAND 
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zpload = 

'•LOAD"iLli "PROGRAM" iLli 
source <- L3EL(#"FILE" ) 
CONFIRM xploaa{ source ); 
COMMAND 

zpinstitute = 

"INSTITUTE" iLli "PROGRAM" iLli 
source *- LSEL(#"NAME" ) <"as"> 
ent ♦• uprogtypes 

CONFIRM xpinstitute( source ent ); 
COMMAND 

zpdelnstitute = 
"DEINSTITUTE" 

ent ♦« uprogtypes 
CONFIRM xpcleinstitute( ent ); 
COMMAND 

zpdelete = 

"DELETE" ILli 
ent ♦• 

( "ALL" iLli <"programs in buffer"> 
/ "LAST" iLli <"program in touffer"> ) 
CONFIRM xpcielete( ent ); 
COMMAND 

zpcompile - 

"COMPILE" iLli 
sent ^ 

( ("FILE" iLli / "ASSEMBLER"iLli <"file"> ) 
<"at"> source <• DSEL(#"STATEMENT" ) 
<"using"> compiler <- LSEL(#"FILE") 
<"to file"> filename *■ LSEL(#"FILE") 
/ "L10"iLli <"user program at"> 
compiler <- NULL filename ♦■ NULL 
source ♦• DSEL(#"STATEMENT») ) 
CONFIRM xpcompile( sent, source, compiler, 
filename ) ; 
END. 
JOURNAL SUBSYSTEM COMMANDS % 
SUBSYSTEM subjournal 

INITIALIZATION ^possible reenter% 
zjinit - 

xjloaworfiK ) ( 

xjsupincO <"re"enter last sut)mission'?"> 

( (reaaca()/"YES"iLll) xjgetworfilO / "NO"iLli 
jouinit ) / 
jouinit ) 5 
jouinit = 

xjzapworfilO %sets reenter flag% 

authfield <- NULL 

clerfield «■ NULL 

comrafielci *• NULL 

distfield ^ NULL 

formfieia ♦• NULL 

keywfield ♦• NULL 

linKfield *- NULL 

nurabfield <- NULL 

numbtype ♦• NULL 
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obsofield <- NULL 
subcfield ♦• NULL 
subrndest <- NULL 
submtype ♦• NULL 
titlfield ♦- NULL 
updafield ♦• NULL; 
TERMINATION %close woricfile% 
zjterm - 

xjsavworfilO %saves state of variables in worKfile% 
xjcloworfilO ; %close worKfile% 
COMMAND %assign% 
zjassign » 

"ASSIGN" ILli ( 
numbtype <- 

( "JOURNAL" ILli / "RINS" / "XDOC"lLll / 
"SPECIALMLli / "NIG"lLli) 
<"numbers -- how many?"> numbfield *- 
LSEL(#"NUHBER") / 
numbtype <- "RFC"iLli <"number"> CONFIRM 
<"title"> titlfield <- LSEL (#"TEXT" ) 
<"author"> authfield <- LSEL(#"TEXT" ) 
<"distribute to"> distfield <- LSEL {#"TEXT" ) 
<"online document?"> submtype *- answer 
<"show status?"> ( (readca()/"YES"iLli) 
xjrfcshowO / 
"NO"iLll ) 
) 
CONFIRM 
xjassignO 5 
COMMAND %author% 
zjauthor = 

"AUTHOR" !Lli 

authfield <- LSEL<#"TEXT") 
CONFIRM; 
COMMAND %clerk% 
zjclerk - 
"CLERK" 

clerfield ♦- LSEL(#"WORD") 
CONFIRM; 
COMMAND %cominents% 
zjcomments = 

"COMMENTS" iLll 
coramfield <- LSEL(#"TEXT") 
CONFIRM; 
COMMAND %defer% 
zjdefnumber = 

"DEFER" iLli "NUMBER" iLH <"assignment"> 
numbtype *• #"DEFSR" 
CONFIRM; 
COMMAND %distribute% 
zjdistribute s 

"DISTRIBUTE" iLli <"to"> distfield ^ LSEL {#"TEXT» ) 
CONFIRM; 
COMMAND %finish% 
z.jfinish = 

"FINISH" ILli CONFIRM xjfinish( ); %resets re-enter fiag% 
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^performs secondary distribution and journal 
submissionfa 
COMMAND %interogate% 
z ^interrogate = 

•'INTERROGATE" iLli <"for submission") CONFIRM 
<"select"> ( 

submtype ♦• structure 

<"at"> submdest <- DSEL(submtype) / 
submtype «• "FILE" ( 

r'NAMBD" submdest ♦• LSEL(#"FIL£" ); / 
submtype ♦• #"WINDOW" submdest <- lsel(#"window") ) 
/ 
"MESSAGE" submtype ♦• #"STATEMENT" 

submdest <- LSKL(#"TEXT") / 
submtype ♦• "HARDCOPY" iLll 

<"located at"> submdest *- LSEL {#"TEXT" ) 

) 
<"title"> titlfield *- LSEL(#"TEXT") 
<"distribute to"> distfield <- LSEL(#"TEXT") 
<"show status?"> (("YES"lLli/CA) xjshowO / "NO"lLli) 
<"finisned?"> 

(("yES"iLll/CONFIRM) xjfinishO / "NO"iLli); 
COMMAND %keywords% 
zjKeywords = 

"KEYWORDS "iLll 
keywfield ♦• LSEL(#"TEXT") 
CONFIRM; 
COMMAND %locK% 

"LOCK"iLli "JOURNAL" iLll <"password"> 

Keywfield ^ LSEL{#"VISIBLE" ) 

CONFIRM xjlocK (Keywfield, TRUE); 
COMMAND %number% 
zjnumber = 

"NUMBER" iLll 

numbtype <- #"NUMBER" 

numbfield «- LS£L(#"TSXT") 

CONFIRM; 
COMMAND %obsoletes% 
zjobsoletes - 

»OBSOLETES"iLll <"documents"> 

obsofield «- LSEL(#"TEXT") 

CONFIRM; 
COMMAND %place% 
zjplace s 

"PLACE" "LINK" iLll <"at"> 

linKfield ^ L3EL(#"VISIBLE") 

CONFIRM; 
COMMAND %print% 
zjprint = 

"PRINT" "HARDCOPY" iLll %wneel () % 

<"password"> updafield > LSEL(#" VISIBLE") CONFIRM 

xjpriharcop(updafield) ; 
COMMAND %process% 
sjprocess » 

"PROCESS" ILli "SUBMISSION" iLli <"form at"> 
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formfieia <■ LSEL(#"STATEMENT") 
CONFIRM 

xjprocess (f ormf ield) ; 
COMMAND %rfc number^ 
zarfcnumber = 

" RFC "i LI I <" number "> 
numbtype <- #"RFC" 
numbfield ♦• LSEL(#"TEXT") 
CONFIRM; 
COMMAND %show% 
zoshow = 

"SHOWiLll "STATUS" iLli 
CONFIRM XjshOW( ); 
COMMAND %subcollections% 
zjsubcollections = 

"SUBCOLLECTIONS"iLli 
subcfield <• LSEL (#"TEXT") 
CONFIRM; 
COMMAND %submit% 
zjselect = 

"SELECT" iLli 

( 

submtype ♦■ structure 

<"at"> submclest «- DSEL(subriitype) / 
submtype <- "FILE" ( 

/"NAMED" submdiest ^ LSEL(#"FILE" )/ / 

submtype <• #"WINDOW" submaest ♦- LSEL(#"WINDOW" ) ) 

/ 
"MESSAGE" submtype «- #"STATEMENT" 

submdest <- LSEL(#"TEXT") / 
submtype «- "HARDOOPY" ILli 

<"located at"> submdiest <- LSEL(#"TEXT") / 
submtype <- "JOUR^^AL" iLll <"document"> 

submdest <- LSEL{#"NUMBER" ) 

) 

CONFIRM; 
COMMAND %title% 
Zjtitle a 

"TITLE" iLli 

titlfield ♦• LSEL{#"TEXT") 
CONFIRM; 
COMMAND %unlOCK% 
zjunlock » 

"UNLOCK" iLli "JOURNAL" iLli <"password"> 
keywfleld ♦- LSEL (#"VISIBLE" ) 
CONFIRM xjlock(Keywfield, FALSE); 
COMMAND %updates% 
zjupdates s 

"UPDATES"iLli <»document(s)"> updafield *- LSEL{#"TEXT" ) 
CONFIRM; 
END, 
SUBSYSTEM subldentif ication 

INITIALIZATION %not yet implemented% 
ziinit » 

xsubnotimpO; 
END. 
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SUBSYSTEM subhelp 

INITIALIZATION %not yet iinplemented% 
zhelpinit - 
xsufonotimpO J 
END, 
SUBSYSTEM subcalculator 

INITIALIZATION %not yet iraplemente<i% 
zcalcinit = 

xsubnotimp ( ) ; 
END. 
FINISH OF NLSLANGUAGE 

% IDENTIFICATION SUBSYSTEM COMMANDS % 
SUBSYSTEM subjournal 

INITIALIZATION ^possible reenter^ 
ideinit s 

xiloaidefilO %sets reenter 



flag! 



capafield <- NULL 
comrafield ♦• NULL 
cordfield <- NULL 
(Jelifield ^ NULL 
expafield ♦• NULL 
funcfield ♦• NULL 
identype ♦• NULL 
membfield ♦- NULL 
nraaidest ♦• NULL 



nmaif ieXd 
smaifield 
namefield 
nhosf ield 
orgafield 
pnonfield 
rtypfield 
shosf ield 
sorgfield 
subcfield 
updafieXd 



foclose 



NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL; 
worKfile% 



%capabillties% 

%comments% 

%cordinator% 

%delivery% 

%expana% 

%function% 

%membersliip% 
%hardcopy mail address^ 
%NLS mail address% 
%sequential mail address' 
%narae% 

%NLS host name% 
%organization% 
%phone% 



%saves state of variables in worKfile% 
%close worKfile% 



"XDOC'iLll / 



TERMINATION 
zjterm = 

xjsavworfiK ) 
xjcloworfiK ) ; 
COMMAND %assign% 
zjassign » 

"ASSIGN" iLli ( 
numbtype <- 

("JOURNAL"iLli / "RINS" / 
"SPECIAL" iLli / "NIC" iLli) 
<"nuinbers -- how many?"> numbfield ♦- 
LSEL(#"NUMBER") / 
numbtype «- "RFC" iLli <"number"> CONFIRM 
<"title"> titlfield ♦• LSEL(#"TEXT") 
<"author"> authfield ♦• LSEL(#"TEXT") 
<"distribute to"> distfield <- LSEL(#"T£XT") 
<"online docujnent?"> submtype «- answer 
<"show status?"> ( ("YES"iLli/CA) xjrfcshowO / 
"NO" ILli) 
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CONFIRM 
xjassign( ) ; 
COMMAND %autlior% 
zjauthor = 

"AUTHOR" iLli 

authfield ♦- LSEL(#"TEXT") 
CONFIRM; 
COMMAND %ClerK% 
zjclerk a 
"CLERK" 

clerfield *- LSEL(#"WORD" ) 
CONFIRM; 
COMMAND %coinments% 
zjcomments = 

"COMMENTS"! LI i 
commfield <- LSEL(#"TEXT") 
CONFIRM; 
COMMAND %defer% 
zjdefnumtoer = 

"DEFER" iLli "NUMBER" !Lli <"assignment"> 
numbtype ♦• #"DEFER" 
CONFIRM; 
COMMAND %aistribute% 
z jdistritoute = 

"DISTRIBUTE" ILli <"to"> distfleld <• LSEL (#"TEXT" ) 
CONFIRM; 
COMMAND %£±ni.Sh% 
zjfinish = 

"FINISH"iLli CONFIRM xjfinisni ); %resets re-enter flag% 
^performs secondary distribution and journal 
aubmission% 
COMMAND %interogate% 
z ^interrogate » 

"INTERROGATE" iLll <"for submission"> CONFIRM 
<"select"> { 

submtype <- structure 

<"at"> submdest «• DSEL (submtype) / 
submtype «- "FILE" ( 

/""NAMED" submdest ♦- LSEL (#"FILE" ) 7 / 
submtype *• #"WIND0¥" submdest <- LSEL(#"WIND0W" ) ) 
/ 
"MESSAGE" submtype ♦- #"STATEMKNT" 

submdest <- LSEL(#"TEXT") / 
submtype ♦• "HARDCOPY" iLli 

<"located at"> submdest <• LSEL{#"TEXT") 
) 
<"title"> titlfield <- LSEL{#"TEXT") 
<"distribute to"> distfield *• LSEL(#"TEXT" ) 
<"show status?"> {("YES"ILli/CA) xjshowO / "NO"iLli) 
^" finished?"^ 

({"YES"iLli/CONF|RM) xjflnisnO / "NO"iLli); 
COMMAND %Keywords% 
zjKeywords « 

"KEYWORDS" iLli 

keywfield «- LSEL(#"TEXT") 

CONFIRM; 
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COMMAND %lock% 
zjlock = 

"LOCKMLll "JOURNAL" iLli <"passwora"> 
Keywfield *• LSEL(#"VISIBLE" ) 
CONFIRM xalock(iceywfieid) ; 
COMMAND %nunber% 
zjnumber s 

"NUMBER" ILli 
numbtype <- #"NUMBER" 
numtofield 4- lsel(#"TEXT") 
CONFIRM; 
COMMAND %obsoletes^^ 
zjobsoletes = 

"OBSOLETES"iLli <"docuraents"> 
obsofield *- LSEL(#"TEXT") 
CONFIRM; 
COMMAND %place% 
zjplace s 

"PLACE" "LINK" ILli <"ac"> 
linkfield <- LSEL(#"VISIBLE" ) 
CONFIRM; 
COMMAND %print% 
zjprint = 

"PRINT" "HARDCOPY"lLli %wheel()% 

<"passwor(3"> updafield ♦- LSEL(#"VISIBLE") CONFIRM 
xjprlharcopiupdafielcl) ; 
COMMAND %process% 
zjprocess » 

"PROCEvSS"iLli "SUBMISSION" iLli <"form at"> 
forrafield ♦• LSEL(#"STATEMENT") 
CONFIRM 

X jprocess (f ormf ield) ; 
COMMAND %rfc number^ 
zjrfcnumber = 

"RFC" ILli <"number"> 
numbtype ♦• #"RFC" 
numbfield *• LSEL(#"TEXT") 
CONFIRM; 
COMMAND %show% 
zjshow « 

"SHOW" iLli "STATUS" iLli 
CONFIRM XjshOW( ); 
COMMAND %subcollections% 
zjsubcollections = 

"SUBCOLLECTIONS"iLli 
subcfieia <- LSEL(#"TEXT") 
CONFIRM; 
COMMAND %subinit% 
zjselect a 

"SELECT" ILli 
( 

submtype ♦- structure 

<"at"> subm<aest ♦- DSEL (submtype) / 
submtype «- "FILE" ( 

/•"NAMED" submdest ♦- LSEL(#"FILE"); / 

submtype ♦• #"WINDOW" submdest ^ LSEL(#"WINDOW" ) ) 
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/ 

"MESSAGE" submtype ^ #"STATEMENT" 

subF.dest *• LSELt#"TEXT") / 
submtype <- "HARDCOPY" iLli 

<"located at"> submdest ♦• LSEL(#"'TEXT" ) / 
submtype *- "JOURNAL" iLli <"ciocuraent"> 

submdest <- LSEL(#"MUMBER") 
) 
CONFIRM; 
COMMAND %title% 
zjtitle » 

••TITLE"iLli 

titlfield 4- LSEL(#"TEXT") 
CONFIRM; 
COMMAND %unlocK% 
zjunlocK 5 

"UNLOCK" ILli "JOURNAL" iLli <"passwordi"> 
keywfieXd <- LSEL (#" VISIBLE" ) 
CONFIRM xjunlock(Keywfielcl) ; 
COMMAND %updates% 
zjupctates » 

"UPDATES" iLli <"document(s)"> updafield <- LS£L(#"TEXT") 
CONFIRM; 
END. 



